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MODULE termdefs ( +t! = 'v04-00 


1 0° 
ADDRESSING_MODE (EXTERNAL = GENERAL)) = 


wr 


' 
isuaeeannatencencteenenseenneceeeneeteterreererernntentenenetenernereetees 
ie 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMEN CORPORATION, MAYNARD, MASSACHUSETTS. 

'* ALL RIGHTS RESERVED. 


'@ 
'@ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. * 
cd 
® 
* 
o 
® 
® 
® 
® 
® 
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'@ 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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Modified by: 


v03-010 —MB113 Ellen M. Batbouta 13-Aug-1984 
Fix the characteristic, SET_SPEED, to be set correctly. 


v03-009 PLLO0O0 Pamela L. Levesque 66-Jul-1984 
Chenge piecebelder terminal names from UNKNOWN! - 8 
to D 1 = 8 to avoid ambiguity with type UNKNOWN. 


v03-008 EMD0067 Ellen M. Dusseault 23-Mar-1984 
leer decerté for all terminals except VT200_Series 
erminals. 


v03-007 EMD0060 Ellen M. Dusseault 08-Mar-1984 
Remove the terminal characteristic, line editing, 


10 
1) 
18 
14 
13 
18 
26 
% 1 CORPORATION. 
00 g ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
+4 ¢ :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
SP 1: 
7 
0099 
0029 144 
site! } FACILITY: SET and SHOW 
0038 ABSTRACT: ; 
0034 This module defines initialized storaged used by both SET TERMINAL 
0035 and SHOW TERMINAL. 
0036 
S14 ENVIRONMENT: 
s¥44 VAX/VMS operating system, user mode 
004g AUTHOR: Gerry Smith 21-Mar-1983 
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$ep-1984 01:16: AX-11 Bliss-32 V4.0-74 
iScSeo-196e O1:08:59  YARCHD OL fagz5Z yt. 0-742. 
from the epble of | foarerter testes to set with eas? 

device. “g 3 a sion whether to turn Line editing 


on will be | up to the system manager. But Line 
editing will et eared if dec_crt is cleared. 
v03-006 EMD00SS Ellen M. Dusseau is 28-Feb-1984 


Add new device name, PRO_ Series, table of devices 
along with “ye © permanen neheverter stics. New terminal 
characteristic, DEC_CRT2 , is available. 


v03-005 MMD0235 4-Feb-1984 14:45 
Add descriptors ter set OTERM/PROTOCOL qualifiers. Needed 
for support of switching terminal ports to and from 
asynch ddcmp Lines. 


v03-004 MIRO300 MICHAEL I. ROSENBLUM 02-FEB-1984 
PUT iM. TERMINAL TYPES LOST IN THE TRANSLATION 
4 LISS, MAKE NOLINE EDITING THE DEFAULT ON NON-ANSICRT 
ERMINALS. CHANGE MACRO TO ALLOW A NAME DIFFERENT FROM THE 


ii DEVICE CODE. 


v03-003 m1IRO083 Michael I. Rosenblum 23-Aug-1983 
Add syspwd qualifier. Add in CT inquire sequinas for 
Version 1.5 of POS. 


v03-002 MIRO071 Michael I. Rosenblum 22-Jul-1983 
Change VT200_series terminals to be 8-bit terminals 
Make holdscreen a user preference feature in all but 
the block mode terminals. 


v03-001 MIROO35 Michael I. Rosenblum 27-Apr-1983 
Add new devdepend bits, parit =none, and negated 
second device dependant definitions. 
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This module creates a number of global data st yurcures, The structures 
are used by both SET TERMINAL and SHOW TERMINAL. The resulting Literals 
and structures are described as follows: 


TERMS_NUM -a oe tes Lryenet « telling how many terminal we: 


TERMS_TABLE - : BLOCKVECTOR of TERMS NUM blocks. Each bloc 
oy ns the terminal type, the default page CNidth 
page length, and bits to set/clear in the two terminal 
characteristics longwords. In addition, the terminal 
is capable of ident fying itself, the number of possible 
yong strings is included, as well as the address of 
table of descriptors of those response strings. 

TERMS _NAME : VECTOR of TERMS_NUM descriptor addresses. for each 
terminal nt described in T RMS LE there is a 
ere Raw erates the terminal's 

TERMS_TT_NUM = ITERAL, the number of *keywords/bits which 
are et bed in the first characteristics senguere 

TERMS_TT_KEY = a VECTOR of dover peer addresses. These are 


ci 


Nw 


n the first char lengword 

TERMS_TT_BIT = a VECTOR of bitmas : which correspond to the keywords 
eoee ree a RMS_TT 

TERMS_TT2_NUM = a GL TERALY the number of hove words/bits which 
are ped bed in the second characteristics longword 

TERMS_TT2_KEY = a VECTOR of descriptor addresses. These are the 

names for the qorwerey waren SET/SHOW terminal 

uncoretana., whic Bs ah the second char longword 

TERMS_TT2_B17 = a VECTO R of oitaes ne correspond to the keywords 

described in T 

TERMS _xxxx - where ‘‘xxxx' } ; the. iealentis type/name. numerous 
GLOBAL LITERALS whose value corresponds to their 
position (index?) into the terminal tables 
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LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
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Auxiliary macros invoked by the keyword macros 

MACRO 

Create a bitmask 


make_mask (prefix) Citem] = ZNAME(prefix, item)%, 


Create a table pointing to terminal names 
resp_desc Cstring] = ZASCID XSTRING(string)%, 


!' Figure out how many strings in a macro . 
count_strings Cstring] = ZASSIGN(count, count+1)%, 


! Create a specific bitmask, given the prefix and name 
bitmask (prefix) Ckey, item] = ZNAME(prefix, ‘Sm_*, item)%, 


! Another descriptor macro 
make_keyword [key, item] = ZASCID ZSTRING(key)%, 


Make a table of CLI rewtt produc one their corresponding TT(2)$M_name 
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i 

! 

! bitmask. This macr roduc 

: TERMS_TT CLR/SET ° count of ist longword bits to clear or set 

: TERM$_TTLCLR/SETJ— = count of 2rd longword bits to clear or set 

: TERMS_TT(2) CLR/ SET KEY - table of ASCID keywords 

: TERMS_TT(2)CCLR/SETJ_BIT = corresponding bits to set or clear 
i, bit_table (prefix, type) 
M “GLOBAL LIT ERAL z E¢* term$_', prefix, type * num") = (ZLENGTH - 33/23 
5 GLOBAL ZNAME('term$_', prefix, .type, "keys :~VECTORC(ZLENGTH-2)/2) 


14-Sep-19 CLIUTL.SRC 


: 187 "0185 1 INITIAL (make keyword (ZREMAINING)) ; 

3; (1 4 01 1 GLOBAL ZNAME(‘term$_*, prefix, ,type, ‘_ it") : VECTORC(SLENGTH-2)/2) 
; 189 i INITIAL (bitmask(ZEXPAND prefix, SREMAINING));%, 

: 191 189 1! 

3 136 1 1 ! Make a table of terminal request strings. These are strings which 

3 bt 3 : : terminals respond to with identifying strings. 

: 195 m0193 1  request_table (request) = 

3 196 m0194 1 GLOBAL LITERAL term$_reqnum = ZLENGTH; 

:; 19 ™0195 1 GLOBAL term$_reqblk : VECTORCterm$ regnual 

; 138 j ! INITIAL (resp_desc(ZEXPAND request, %REMAINING));% 
; 198 1 

; ; 1 139 : 3 

; 08 3oy 1 
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' 
i The following keyword macros cre 
;to both SET TERMINAL and SHOW TERM 


wr 


gore ve various structures which are accessible 


wn 


iy RM_INDEX defines the Literals which are used as an index to a 
: bitvéctor, to define each terminal type. 


KEYWORDMACRO 
term_index Csype., Os ascnam lenge width, setl, clearl, set2, clear2, resp) = 
LITERAL IN nant terns! , type) = XNUMBER( index); 
ZASSIGNC index, index+1) 
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' 
: NAME BLOCK creates a descriptor for the name of a terminal 


KEYWORDMACRO 
name_block (type, 
ascnam, 
Leng tnnv. 
width 
setl, 
clear, 
set2, 
clear2, 
resp) = 
x Zif ZNULL( ) 
i ZTHEN ZASCID XSTRING( type) 
. eeyoe ZASCID ZSTRING(ascnam) 


RESP_BLOCK creates a vector of terminal response code descriptors, 
as well as a literal that tells how many different codes there are, 
for a specified terminal. 


PPMAAUIVIUAUNUIUIE BEE ELLLLE SS re banaue 
SSSVSFVTUNIS SSNS SESW SESSESES WN —O VDONAOULSWN “ODO wiry 
ed td ot 2 od = = = = = = = 2 = = Sd a a 2 8 8 8 


KE YWORDMACRO 
resp_block (type. 
ascnam, 
len th= a 
width=0, 
setl, 
cleari, 
setd, 
clear2, 
4 resp) = 
4 ZIF NOT ZNULL(resp) 
# ZTHEN 
Ld SASS Gioount 
4 ba poe ern coe 
i] CITERK sheet type num’) = coun: 
™ OWN ZNAME (type, block") : VECTORCcount) 
set . af] INITIAL (resp_desc (ZREMOVE(resp))); 
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; 59 1 i; 

; 1, 

; 26 1) TERM BLOCK creates a yey id table. Each entry in the table consists 
: : H of a block that looks like thi 

H 65 1 i Do ee we Sm ee ee oe ee i 

3 1! tT page width {type 7T 7 | 

3 6 1 ' $wmanarsremeoeeeoroee wsarnneoanenaenoeas me 

: oe } } } length ! H bits te set in ist L.w. : 

5 19 i ; ' bits to set “in 2nd L.w. : 

: Lf : H bits” to clear in Ist l.w. H 

3 ii : bits to clear in 2nd lew. 

; 6 ; number of response strings : 

; 9 28 ' ; {_____address of response string | 

; 0 80 1 i BOSS See Fe sons See ee SS Sno aetew wen eee wma ao 

: . @ KEYWORDMACRO 

3 HG 1 term_block (type, 

3 83 1 ascnam, 

: oe8s etatheos” 

; 9 8 } sett. 

3 cleari, 

3 8 BB 4 sete, 

3 89 1 clear2, 

: : 0 3 ! resp) = 

; : 4 ! (width*16) OR ~ ee type)*8, 

; m 0294 1 ZIF XNULL(set 

: 4 ! 95 1 ZTHEN Leng athge OR tt$m_wrap or tt$m ne eayne 

: i. 38 1 ZELSE Length*24 OR tt$m_ -wrap or ttSmt arms 

3 "0297 1 OR make_mask(tt$m_, then VE (set1)) 

; m 0298 1 FI, 

3 "0299 1 

; 30 i 1 ZIF ZNULL(set2) 

3 304 ye 1 ZTHEN 8 

3 0g . ! get SE OR make_mask(tt2$m_, ZXREMOVE(set2)) 

: 30 4 1 ' 

3 x 1 ZIF ZNULL(clear1) 

; 309 i i ZTHEN ttSm_Lffill OR a scope OR tt$m_holdscreen OR 
: 310 » 1 tt$m_readsync OR 

3 311 fat 1 tt$a_ ~notypeand = te btSe gnochteb OR tt$m_ttsync OR 
: i K 1 tt$m_w iff tt$m_mechTfora 

. M 1 ZELSE tt$a_ tftit L OR ft scope OR tt$m_holdscreen OR 
: 14 il 1 tt$m_readsync 

3; 315 "i 1 tt$a_ “notypeahd nok ttSa mechtab OR tt$m_ttsync OR 
: 16 i 1 tt$a_ =wr ap OR tt$m_mechTfora 

3 4 " ' = make_mask(tt$m_, UREAOVE Coleert)) 
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ZIF ZNUL sclogr 

ZTHEN tt2Sm_s OR rene printer OR tt2$m_drcs 

ZEL ef tt2$m_sixel :. tt2s pevoter OR tt2$m_drcs OR 
make_mask(tt2$m_, %RE flove (clear2)) 


| 
af arte | 
ae Se INAME (type, ‘_num'), %NAME(type, '_block") 


MACRO 
Process one terminal, making one NAME_BLOCK entry 


EWN DONAVNLSWN O°” 


make_name_ block Cone terminal] = 
hame_Block (ZREMOVE (one_terminal))%, 


] 
: Process one terminal, making one TERM_BLOCK block 


OWONAVE WN O OONAULS WN" OOOne 


eee eS ee 


make_term_block Cone_terminal] = 
term_Block (ZREMOVE (one_ terminal))%, 


IAL (make_name ye List, ZREMAINING)), 
term$_table : NOLOCKVECTOR( teras num, 28, BYTE) 
INITIAL (make_term_block(ZEXPAND List, %REMAINING)); % ; 


0 
j 
ri} § 
37 : Process one terminal, making one TERM_INDEX Literal 
i} 5 "  make_term_index Cone terminal) = 
g 36 term_Tndex (ZREMOVE (one_ terminal))%, 
At aca 
6 $3 Process one terminal, making a response block 
54 Mm 0351 make_resp_block Cone_terminal] = 
36 328 Fesp Block (ZREMOVE (one. t terminal))%, 
5 54 ! 
38 335 : Here's the master macro, that calls all the other ones. 
3 define peetypes (t ag = 
1 28 0) 
§ 5 oy tera_ Mee en CZEXPAND List, ZREMAINING) 
make_ Kear ese block (ZEXPAND list. ZREM nae NING) 
: GLOBA TERAL term$_num = ZLENGTH; 
5 
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Define the terminal Fyges. NOTE THAT THE FIRST 15 TERMINAL TYPES ARE IN 
ORDER, AND SHOULD NOT BE CHANGED. 


define_types( 


(type = 1a36, 
width = ; 2: 
Length = 66, 
set! = lower, 

= 


clear2 = (deccrt2, deccrt, ansicrt, regis, block, avo, edit, editing)), 


(type = la120, 
width = 138. 
length = 6 

set? = (mechform lower, mechtab), 

clear2 = (gecerte, deccrt, ansicrt, regis, block, avo, edit. editing), 
resp = '(C?2;'), 


(type = vt05, 

width = y 

length = 6, 

set! = (scope, Lffill, mechtab), 

clear! = (holdscreen, lower), 

clear2 = (deccrt2, deccrt, ansicrt, regis, block, avo, edit, editing)), 


(type = vt52, 

width = 80 

songth = 24, 

set! = (lower, scope, mechtab) 
clearl = (holdscreen, mechform), 
clear2 = (deccrt2, deccrt, ansicrt 
roan =o (*7m",, “M'« "feo "FR" so 
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(type = vt55, 

width = 8 

length = 4 

seti = (mechtab, scope, Lower) 


clear] =(holdscreen,mechform), ; 
clear2 = (deccrt2, deccrt, ansicrt,regis,block,avo,edit, editing)), 


(type = vt100, 
width = 8 
length = 4 

seti = (mechtab, scope, lower), 

clear! = (mechform) 

set2 = (deccrt, gnsicrt. avo), ; 
clear2 = sgegcre - regis, block, edit), 
resp = '(?1;°), 
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(type = ft8), 
pire = unknown, 
c 


ear2 = (deccrt2, deccrt,ansicrt,regis,block,avo,edit, editing)), 


(type = 1a34, 

width = + e 

length = 6 

set? = (mechform, lower), 

clear] = mechtab 

clear2 = (decerté, deccrt, ansicrt, 
resp = '(?3;'), 


(type = 1a38, 

type 2 #35: 

length = 66 

seti = (mechform, lower), 

clearl = mechta 

clear2 = (decerté, deccrt, ansicrt, 


(type = (a100, 

width = 80 

Length = 66 

seti = (mechform lower, mechtab), 


clear2 = (decert2, deccrt, ansicrt, 
resp = ‘C?10;'), 


(type = lal2, 

width = 80 

congeh = 66, 

set! = (mechform, lower, mechtab), 


clear2 = (decerté, deccrt, ansicrt, 
resp = '(715;"), 


(type = lags. 
width = 132, 
length = 66 


set? = (mechform lower, mechtab), 
clear2 = (deccrte, deccrt, ansicrt, 


(type = TQ BTS, 

ascnam = BTS, 

width = 8 

length = § 

set? = (mechform lower), 

clear2 = (decerté, deccrt, ansicrt, 


(type = lqp02, 

with = 9992 

length = 66 

seti = (mechform lower, mechtab), 
clear2 = (decerte, deccrt, ansicrt, 
resp = '(C?13;"'), 
(type = vk100, 

width = 86 

length = 24, 
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seti = (mechtab, scope, lower), 
clear! = (mechform), 
set2 = ansicrt 


clear2 = (gecert2, block, deccrt, avo, edit, regis, editing), 
resp = '(?5;"), 
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(type = vt101, 

width = b 

Length = 24 

seti = (mechtab, scope, lower), 
clear! = (mechform) 

set2 = (deccrt, gnsicr De 
clear2 = (decerte, regis, block, avo, edit), 
resp = '(C?1;") 


(type = vt102, 
width = bo 
Length = 24 
= (mechtab, scope, lower), 
clear! = (mechform) 
set2 = (deccrt, ansicrt, avo, edit, printer), 
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clear2 = (deccrt regis block), 
resp = ('C26;°,'C261;",'°261;')), 
(type = vt105, 

width = ‘8 

Length = 24 


seti = (mechtab, scope, lower), 
clearl = (mechform 
set2 = (deccrt, gnsicrt), 

» regis, block), 
resp = '(?1;°), 


(type = yvt125, 
width = 80 
length = 

seti = (mechtab, scope, lower), 
clearl =(hostsync, mechform) 
set2 = (deccrt, ansicrt regi 
clear2 = fbbock. deccrte, edi 
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(type = vt131, 
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length = 24, 
seti = (hostsync, mechtab, scope, lower), 
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3 clear’ = mechform, | 
3 set2 = (deccrt, gnsicrt. block, edit, avo), 
34 clear2 = gegcre » regis), 
36 resp = '(?7;"), 
(type 132, 
38 cyoth <6 


Length = 24, 

seti = thos tayae. mechtab, scope, lower), 
clear! = mechforam, 4 
set2 = (deccrt, ansicrt, block, avo, edit), 
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clear2 = ( deccrt2, regis), 
resp = '(24;'), 


(type = v 173, 

width = § 

length = 16, 

set! = (hostsync, mechtab, scope. iower), 

clear! = (mechforer:, 

set2 = block, 

clear2 = (deccrt2, deccrt, ansicrt, regis, editing), 
resp = ';"'), 


tyes 7 Cysts 
width = 8 


> 543 P 1 

; 5446 P 1 

; 545 > 1 

3; 36 Pp 1 

; 54 P 1 

; 548 Pp 1 

; 549 e 1 

3 0 Bp 1 

: 1 p 1 

: ¢ P 1 

3 P 1 

3 4 e 1 

3 5 Pp 1 

3 28 e 1 

; 55 P 1 Length = 24 

; 38 : : set? = (mechtab, scope, lower, eightbit), 
; 560 P 1 

; 561 P 0 1 clear2 = (fallback regis. blockS, 

: 6¢ Pp 0558 1 resp = (°£262;','262;')), 

; 7 4 b32 } (t PRO_Seri 

3 pe = Series, 

: 565 P 0561 1 width = 80 

; 566 P 0562 1 Length = 24 

: 267 P 0565 1 set! = (mechtab, scope, lower), 

; 568 P 0564 1 clear! = (mechform 

; 569 P 0565 1 set2 = (deccrt, ansicrt avo, edit, printer), 
3 270 ‘ig 3208 1 clear2 = sgecerte fallback, block), 
: 571 P 0567 1 resp = ('231;°,'203;",'L203:",'L222:","2223')), 
3 arg P 0568 1 

3 2 P 0569 1! 

: 574 P 0570 1 ! Add some more — terminal types, in the event that other terminals 
3 27? P 0571 1 =! must be supported between releases. 

; 576 P B278 1! 

3 S77 P0573 1: 

; 578 P 0574 1 (type = dummy1), 

3 of P0575 1 (type = dummy2), 

; 580 P 0576 1 (type = dummy3), 

; 581 P0577 1 (type = dummy4), 

3 266 P0578 1 (type = dummy5), 

3; 38 P0579 1 (type = dummy6), 

; 584 P 0580 1 (type = dummy7), 

: en? P baa) : {type = dummy 

3 389 g28¢ 1 


tee = (mechform), 

set2 = (deccrt2, deccrt, ansicrt, avo, edit), 
| 
| 
| 
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: $88 7 | 

3 5 1! Define the keywords and the corresponding bits in the 

3 33 ! } two device-dependent longwords. ; 

; 38 P 8 1 bit_table(tt, set. 

; 594 P 1 eight_bit, eightbit, 

: 595 P 1 escape, escape, 

3 38 P 0591 ‘1 form, mechform, 

; #59 P 3 1 hal fdup, hal fdup, 

; 598 P 05935 1 hold_screen, holdscreen, 

; 599 P 0594 1 hostsync, hostsync, 

3 $00 p 232 1 lowercase, lower, 

; 601 p 38 1 em modem 

; 60 P 0597 1 passa(l, passa(l, 

; 60 P 0598 1 readsync, readsync, 

3 604 P 0599 1 scope, scope, 

; 605 P 0600 1 scribe, script 

3 606 P 0601 1 ab, mechtab, 

; 607 P set) 1 ttsync, ttsync, 

5 ons 398? ' wrap, wrap); 

3; 610 P Ogos 1 bit_table(tt, clr, 

3; 611 P Be 1 uppercase, lower, ' qualifiers that have 

; ol¢ P 0607 1 ger eceny scope ! duplicate sets should be 

3 6) P 0608 1 interactive, assa(l, ! in the Beginning of this list 

3; 614 P eet 1 fulldup, alfdup, ! if you add 1 zou must change the count 

; 615 P 0610 1 broadcast, nobrdcst, ! in LOG_RESULT 

; £18 P o6t2 i mone d sot mane 

3 ypeahead, notypea 

eR 

; 620 P 0615 1 bit_table(tt2, set 

; 621 P 2018 1 advanced video, avo, 

= ¢ P 0617 1 oh typeee " altypeahd, 

s 6 P bes 1 ansi_crt ansicrt, 

; 624 P 0619 1 application keypad.app_keypad, 

3; 625 P 0620 1 autobaud, _ @utobaud, 

.. © § P 0621 1 block_mode, block, 

: 6 P 06 ¢ 1 brdcstmbx, brdcstmbx, 

3; 628 P 1 disconnect, disconnect, 

3; 629 P 0624 1 dialup, dialup, 

; 6 P 0625 1 edit edit 

: ° 1 : § : fallback, fallback, 

3 ngup,. angup, 

: 83 P 0698 1 line edit editing. | 

3: 634 P 0629 1 insert_editing, insert, 

; tH 4 9 ' oy epee Legaieche. 

: rinter_port, rinter, 

3 $35 P 06 § 1 past ~bae pesthru, | 

3; 638 P 1 regis, regis, 

3; 639 P 06 1 secure_server, secure, 

; 640 P 0635 1 sixel, sixel, 

3 oh . " ' Sort characters.ercs. 

3 syspassword, syspwd, 

$ $8 P 3 1 ty oon 

> 644 1 dma, dmaS ; ‘ Yeas 

3; 645 P 0640 1 bit_table(tt2, clr, ! SEE TT bit table for importaint information | 
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: st rege that terminals might respond to 
i first ver vee tyle 

i se ond t he VT Style 

; third ie” the vt200 style 
r 


Create a table of all terminal ne 


GLOBAL ibe ge term$_ “tect 
GL 


OBAL term$ P dblk : 
INITIAL (ZASCID 
ZASCID 
ZASCID ° 
ZASCID 
ZASCID 
ZASCID 


: Declare the even/odd eaten 
term$_even : VECTOR(2) 
INITIAL (Z2CHARCOUNT 
PLIT BYTE 
term$_odd : VECTORC2) 
INITIAL (ZCHARCOUNT 
PLIT BYT 
term$_none : VECTOR(2) 
INITIAL (ZCHARCOUNT 
UPLIT BYT 
! Declare the protocol descriptors 


protocol$_none : oRC2) 
IN ITAL CECHARCOUNT 
UPLIT BYTE 


protocol$_ 


edcne i CTORC2 
THALCHCHARCOUNT 
UPLIT BYT 


130", FASCID 1750 
"134", RASCID '1508 
$00"; ZASCID 11200", 
20001, EASCID 12400", 
"4800"? BASCID '7200", 
19200"), 
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-TITLE Havee 4 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE,2 


000 P.AAB: .ASCII \C 225 
ots P.AAA: -LON 1%6 4724 
p 5 P.AAD ASCII VZ8N«O><0> 
10 P.AAC: .LONG 1769472 
14 -ADDRESS P.AA 
18 P.AAF: ASCII \4t\<0><0> 
16 P.AAE: .LONG 1769472 
.ADDRESS P.AAF 
4 P.AAH: .ASCII \/2\<0><0> 
8 P.AAG: .LONG 17694722 
99 -ADDRESS P.AAH 
P.AAJ ASCII \4A\<02.50> 
034 P.AAl: .LONG 17694722 
0 .ADDRESS P.AAJ 
O03C P.AAL: .ASCII \/H\<0><0> 
9940 P.AAK: .LONG 17694722 
0044 .ADDRESS PS AAL 
0048 P.AAN: .ASCII \/J\<0><0> 
O04¢ P.AAM: .LONG 17694722 
005 .ADDRESS P. 
0054 P.AAP: .ASCII \/B\<0><0> 
0058 P.AAO: .LONG 17694722 
005C¢ .ADDRESS P.AAP 
060 P.AAR: .ASCII \/J\<0><0> 
064 P.AAQ: .LONG 17694722 
068 -ADDRESS P.AAR 
$¢ P.AAT: ASCII \/i\<0> <0> 
P.AAS: .LONG 17694722 
74 .ADDRESS P.AAT 
78 P.AAV: .ASCII \Z0\<0><0> 
7C P.AAU: .LONG 17694722 
0 -ADDRESS P.AAV 
P.AAX: ASCII \/R\<0><0> 
P.AAW: .LONG 17694722 
BC -ADDRESS P.AAX 
00090 P.AAZ: .ASCII \/5\<0><0> 
00094 P.AAY: .LONG 17694722 
098 -ADDRESS P.AA 
p909¢ P.ABB: .ASCII \/T\<0><0> 
DOAD P.ABA: .LONG 17694722 
DOA4 -ADDRESS P.ABB 
DOAB P.ABD: .ASCI \CP1i 
DOAC P.ABC: LONG — 17694724 
004 P.ABF "ASthT AE SBcR 
P.ABE: .LONG besides 
.ADDRESS P.ABF 
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00000 LA120_BLOCK: 
ADDRESS P.AAA 
00004 vT52_BLOCk: 


AX-11 Bliss-32 V 
CLIUTL.SRC TERMDE 


~PSECT SOWNS,NOEXE,2 


cFS.630:1 


sADDRESS P.AAC, P.AAE, P.AAG, P.AAI, P.AAK, = 


2ADDRESS P.ABC 
O003C LA34 BLOCK: 
ADDRESS P.ABE 


00040 LA100_BLOCK: 
ADDRESS P.ABG 
00044 LA12_BLOCK: 
ADDRESS P.ABI 
00048 LaPd2 BLOCK: 
DDRESS P.ABK 
0004C vK100 suit: 
ADDRESS, P.ABM 
00050 vT101_BLOCK: 
ADDRESS P.ABO 
00054 vT102_BL0Ck: 


ADDRESS P.ABQ, P.ABS, P.ABU 


00060 vT105_BLOCk: 

eADDRESS P.ABW 
00064 VT125_BLOCk: 
RESS P.ABY 


AD 
00068 VT131_BLOCK: 
ADDRESS P.ACA 
0006C vT132 BLOCK: 
ADDRESS P.ACC 
00070 vT173_BLOCK: 
ADDRESS P.ACE 
00074 vT200_ SERIES BLOCK 


DDRESS P.ACG, P 


0007C PRO_ seriés BL otk: 


«AAO, P.AAQ, P.AAS, P.AAU, P.AAW, = 


Go03s P.AAM, P 
P.AAY, P.ABA 
8 VT100_BLOCK: 2 


-ABDRESS P.ACK, P.ACM, P.ACO, P.ACQ, P.ACS 


-PSECT S$GLOBAL$,NOEXE,2 


00000 TERM$_NAME : 


JADDRESS P.ACU, P.ACW, P.ACY, P.ADA, P.ADC 


1 ADE, 
3 P.ADQ, 
4 SAEC, 
6 SAEO, 
P.AFA, 
P.AFM, 
AO TERMS_TABLE:: 
.LONG 8658944 
1380505 
D 09764 
D4 eADDRESS LAl 0. BL 
D “LONG 471 48 
F gi3 505 
010. 09764, 


-—Oo-— »>r>rrr> 


sel 


ADK, P.ADM, P.ADO, 


souepneooe | 1$6%821472, 0. 


$098 955658208, 0. - 
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1G-Seo-1984 O1:16:32  YaNeHt BLingc 2 40-742 | rae fs 


0000° 001 ADDRESS LOCK | ; 

00 180013A g 4 i LONG 1 g 402658208 09764, - : 

9p0ot sa bb 883808 12 HI of $60,057 528458  £0b658208, - : 

* 00144 .ADDRESS VT 88 aL bck : D ; 

e Veg ON Has EE. Mua TENSOR Bs ges 

1 4608, 544. 0. 809764. 7340032. 0. 0. - 

3 ae its: St: ve ie 44s 

i IC a8 44, ; 3764, , rh ; 0. 0. = : 

3 6 1F $3 * 544. 0. $ret ? 108 aoe oe ee 

901 0 44 ! 869764 4 8650560 _- F 

00 99 0 0990 86594 é 1107821216, 0, 809764, - ; 

$0090 7F701000 00CSB>%. 90980 2158050560, 1 

699 0" 0025¢ .ADDRESS LA34_BLOCK : 

00000000 7F701000 000¢5B24 0900000 420802A0 4 0 0 $6 “LONG 659713 No7e2i21¢ Q g09764 - F 
7F701000 000C5B24 00000000 420803A0 0050250 0 000 0 i 13805 560,00, 0. 25 $52, 1107821472, 0, - : 
90090000" 00294 ADDRESS 64100 BLO « 7 ; 

00000001 7F701000 000C5B24 00000000 420803A0 00502400 00298 “LONG 3252098, 1 07621472, 0, 809764, - : 
00000000" 00280 -ADDRESS LA12 BLOCK ; 

00000000 7F701000 000¢5824 00000000 420803A0 0342900 00 B4 “LONG asc0sz4 ti07821472 : 809764, - : 
7F701000 000C5B24 00000000 170802A0 00500400 00000000 o0decc Hl 8050560, 0, 0, 5243904, 386400928, 0, - ; 
000C5824 00000000 420803A0 00842600 00000000 0000000 002E4 09764 21 $8050360 0, 0, 8660480, - ; 
00000001 7F701000 O02FC 1107821472, 0, 809764. 2138050560. 1 : 

00000000' 99 04 . ADDRESS £080 BLOCK : 

00000001 7€701000 000C5B24 01000000 180013A0 00540200 00308 “LONG $305 5, 4 2658208, 16777216, 809764, - 
69000000' 90320 ADDRESS £100 BLOCK ; 

00000001 5E700000 000C5B24 21000000 180013A0 00506100 00324 LONG 5E677124 4 2658208, 553648128, 809764, - 
90000900" 0033¢ ADDRESS 7101 BLOCK : 

00000003 46700000 000C5B24 39400000 180013A0 00506200 00340 “LONG 5267968, 4 2658208, 960495616, 809764, - =; 
90000000" 00358 ADDRESS yr : BLOCK ; 

00000001 46700000 000¢5B824 21000000 180013A0 6 035¢ “LONG 5268 ar. 2658208, 553648128, 809764, - 
9000000 ' 00374 ADDRESS 7108 BLOCK ; 

00000001 54700000 000C5B834 28500000 180013A0 00506400 00378 “LONG Fite 0, 402658208, 726663168, 809780, - 
0000" 00390 .ADDRESS VT ; BLOCK : 

00000001 42700000 000¢5B824 30000000 18001380 titted rises “LONG 5368 go 25458224, 1023410176, 809764, - 
00000" OO3AC ADDRESS 181 BLOCK : 

00000001 42700000 000¢5B824 30000000 18001380 ittetitd titra “LONG $368 2 bdesez2s, 1023410176, 809764, - 
99000000" 903¢8 ADDRESS 113 BLOCK : 

00000001 63701000 000C5824 04000000 10001380 03¢C “LONG 5 daeehs, 8440496, 67108864, 809764, - 2 
0000000" 0034 .ADDRESS VT173_BLOCK : 

00000002 06704000 000C5B824 79000000 180093A0 itdtaitd 0368 “LONG mato 690976, 2030043136, 809764, - 
00000000" 00400 ADDRESS V1200_SERIES_BLOCK 
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000C5824 39400000 180013A0 00506F00 00404 «LONG 3471596. ar 960495616, 809764, - 
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* 0041 ADDRESS PR SER org ; 
4 LONG 6 a03764 7340632, 0, 0, 0, 544, -; 
4 Gstee, eit 33. 0, , 6, $44. 0. = : 
9 * 544 0. 69764, - : 
8 4 4003 ° ° ° ° uf ° 0976 ” ees Py) 
4 004 0 7340032, 0. 0. 0, 544. 0, 809764. - : 
C5824 48 7 400 * 0. 0. 0. 544; 0; 809764, - : 
599 4C 7340032. 0. : 
i : 
00000000" 00000000' 00000000" * 00500 TERMS_TTSET_KEY:: 
-ADBRESS- P. Ang ek AFY, P.AGA, phen” rae ’p $ 
0 I. I: 8888: BREE BAGS: BAGS: BAGS: BABY’ PoASOePsAGOK = 
00100000 0008000 809008 8 §08000 itd TERMS -TISET BIT: : i ae peel oe sotes . 
00040000 90000001 00200000 00000080 00554 +35 s29eht agh2 » 262144, 4096, 64, Se. - : 
00000200 90900020 99000109 056¢ . ; 
00000000" 00000000* 00000000" 00000000' 00578 TERMS_ TTCLR KEY: 
ADBRESS | i? AHA, P.AHC, P.AHE, P.AHG, P.AHI, - F 
00000000" 00590 , P.AHM ; 
00000002 00020000 00100000 00000001 00001000 00000080 00594 TERMS_TICLR BIT:: 
seenené, Seated <LONG 128, 4096, 1, 1048576, 131072, 2, 4 : 
00000000" 00000000" 00000000' 00000000' 00000000° titdiitse 00580 TERMS_TT2SET_KEY:: 
-ADDRESS P.AHO, P.AHQ, P.AHS, P.AHU, P.AHW, - : 
00000000" 00000000° 0 ’ 9990000" 990000 0° 00000000" 005c8 P.AHY, P.AIA, P.AIC, P.AIE, P.AIG, P.ALl, - : 
00000000" 00000000" 00000000° 00000000' 00000000° 99000000" 05€0 P.AIK, P.AIM, P.AlO, P.AIQ, P.AIS. P.AIU. - : 
00000000" 00000000' 00000000' 00000000* 00000000° 00000000' 005F8 Prat” P.ALY, P.AJA, P.AJUC, P.AJE. P.AUG, - ; 
04000000 00000002 00800000 01000000 00000080 08000000 00610 TERMS_TT2SET_BIT:: 
LONG 134217728, 128, 16777216, 8388608, 2, - F 
00000004 00004000 10000000 00008000 00020000 00000010 00628 67108864, 16 131072, 32768 g68455456 - 3 
02000000 00040000 00400000 00000001 00002000 00001000 00640 16384, 4, 4096 8192. 1, 4194304, 262144, -: 
00000040 00000020 00080000 00200000 00100000 00010000 00658 3 334432465336. 1048576, 2097152, - : 
00000000" 00000000 00000000° 00670 TERMS_TT2CLR_KEY:: 
ADDRESS P.AJK, P.AJM, P.AJO 3 
00000100 00002000 00800000 0067C TERMS_ 1T3CtR BIT:: 
.LONG 8388608, 8192, 256 F 
00000000" 00000000' 00000000' 00688 TERMS_REQBLK: : 
- ADDRESS P.AJQ, P.AJS, P.AJU 3 
00000000* 00000000' 00000000' 00000000' 00000000' 00000000' 00694 TERMS_SPDBLK: 
NADDRESS P.AJW, P.AJY, P.AKA, P.AKC, P.AKE, F 
00000000" 00000000' 00000000° 00000000' 00000000° 90000" O6AC P.AKG, P.AKI, P.AKK, P.AKM, P.AKO, P.AKQ, = : 
00000000" 00000000' 00000000' 00000000' 9900" PAKS, P.AKU, P.AKW, P.AKY. PALA. P.ALC. ; 
oe TERMS _EVEN: : 
“sojRbOnESS'. ALE : 
88898880" BREE5 rem ooiORES® , 
0000000° 0 6E4 “ADDRESS P.ALF : 
0000004 


6E8 TERMS_NONE: : 
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T FS 16-56 Sep-1 AX-11 Bliss-32 V4.0-74 
Vie 050 ~3e7138e 9}: 68: 9 AUT SRE TEAMDER S 68351 
PSECT SUMMARY 
Name Bytes Attributes 
SPLITS 2184 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, « CON,NOPIC,ALIGN(2) 
144 WNOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SGLOBALS vee NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
- ABS . NOVEC,NOWRT,NORD ,NOEXE,NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 


Library Statistics 


evcauwse Syabol§ eoeesoce Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 78 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: TERMDEF S/OBJ=OBJ$: TERMDEFS MSRCS$: TERMDEF S/UPDATE=(ENHS: TERMDEFS) 
Size 0 code + 4120 data bytes 
Run “rime 


Elapsed. Ties: 02:1 
Lines/CPU Min 7 
Lexemes/CPU-Min: 61351 
4 As: Used: 212 pages 
Compilation Complete 
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